TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/M-More Monthly Disks/(c)mc.d64/drill ou_ow.c

Commodore BASIC | 2007-02-04 | 4KB | 206 lines

5 REM ***GRAMMAR DRILL***
7 REM DRILL IN SPELLING WORDS WITH
9 REM *OU/OW* SUITABLE FOR GRADES 4-8.
10 REM
11 REM PROGRAM DEVELOPED
13 REM BY J J URSANO SPRINGDALE PARK
14 REM BRACEBEODGE, ONTARIO APRIL/83
15 REM (null)
16 REM LINES 20 TO 510 SET UP AND
17 REM PRINT THE PROGRAM TITLE
18 REM
19 REM
20 PRINT"[147]"
21 POKE 53280,5:POKE53281,7:REM SCREEN COLOURS
22 PRINT"": REM SET CURSOR TO RED
23 REMCLOSE(null)
24 FOR I=1TO25
25 PRINT TAB(7)"[191]";
30 GOSUB 500
40 NEXT
45 PRINT
50 FOR I=1TO5
60 PRINT TAB(31)"[191]"
70 GOSUB 500
80 NEXT
90 FOR I=31 TO 7 STEP-1
100 PRINTTAB(I)"[145][191]"
110 GOSUB 500
120 NEXT
130 FOR I=1TO5
140 PRINT TAB(7)"[145][145][191]"
150 GOSUB 500
160 NEXT
170 PRINT"OU/OW"
180 PRINTTAB(14)"BY J. URSANO"
190 FOR Y=1TO3500:NEXT
200 PRINT"[147]"
499 GOTO 800
500 FOR L=1TO30:NEXT
510 RETURN
750 REM
760 REM
770 REM LINES 800 TO 950 ARE
780 REM INSTRUCTIONS FOR STUDENTS
785 REM
786 REM
790 PRINT"[147]"
800 PRINTTAB(8)"R E M E M B E R [146]"
810 PRINT"1) OU OR OW CAN SAY OU"
820 PRINT"2) OW SAYS LONG O"
840 PRINT"PRESS*ANY KEY*[146]WHEN READY"
850 GET K$:IF K$=""THEN 850
860 PRINT"[147]"
900 PRINT"TYPE THE MISSING LETTERS"
910 PRINT"TO COMPLETE THE WORD"
920 PRINT"EXAMPLE:"
925 PRINT "[163][163][163][163][163][163][163][163]"
930 PRINT "SH..T WOULD BE SHOU[146]T"
940 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
950 PRINT"PRESS*ANY KEY*[146]WHEN READY"
960 GET K$:IF K$=""THEN 960
2000 REM
2001 REM
2004 REM (null)
2005 REM PUTTING DATA INTO ARRAY
2010 REM A$=WORD WITH BLANK(M..TH)
2012 REM B$=CORRECT ANSWER(OU OR OW)
2014 REM C$=CORRECT WORD(MOUTH)
2016 REM P1 IS SIZE OF ARRAY
2018 REM
2019 P1=44
2020 DIMA$(P1),B$(P1),C$(P1)
2030 FOR I=1TOP1
2040 READA$(I),B$(I),C$(I)
2050 NEXT I
2059 REM
2060 REM  RANDOMIZE AND PRESENT WORDS
2065 REM AND SET COUNTER AT 0
2070 REM
2075 REM
2080 I=0:CO=0:N=0
2090 I=INT(P1*(RND(TI))+1)
2100 PRINT"[147]"
2105 POKE 53280,9:POKE53281,15:PRINT"[144]": REM SET CURSOR TO BLACK
2110 CO=CO+1
2120 PRINT"",TAB(13)
2130 PRINT""A$(I)
2140 PRINT"[145]",TAB(16)
2145 REM CHECK TO SEE THAT ANSWER IS
2147 REM CORRECT
2148 REM
2150 GETD$:IFD$=""THEN2150
2160 GETE$:IFE$=""THEN2160
2165 Z$=D$+E$
2170 PRINT"";Z$
2180 IF D$+E$=B$(I) THEN 2220
2190 PRINT"SORRY,THAT IS NOT CORRECT"
2200 PRINT"THE ANSWER IS ";C$(I)
2210 GOTO 2240
2220 N=N+1
2224 REM STUDENT OPTION TO CONTINUE
2226 REM OR TO CHECK SCORE
2228 REM
2230 PRINT"WELL DONE!"
2240 PRINT" PRESS SPACE BAR[146] TO CONTINUE"
2250 PRINT" PRESS S[146] TO SEE SCORE[146]"
2280 GET R$:IFR$=""THEN2280
2290 IF R$=CHR$(32) THEN 2090
2300 IF R$="S" THEN 5000
2315 GOTO 2280
2370 DATA"   ..CH","OU","OUCH[146]"
2380 DATA"ARR..","OW","ARROW[146]"
2505 REM
2510 REM
3000 REM DATA STATEMENTS BEGIN
3004 REM (null)
3005 REM
3006 REM
3008 REM (null)
3010 DATA"ALL..","OW","ALLOW[146]"
3020 DATA"  D..N","OW",RDOWN"
3030 [131]"  H..ND","OU","HOUNDWAIT"
3040 [131]"  R..","OW","ROWWAIT"
3050 [131]"  H..SE","OU","HOUSEWAIT"
3060 [131]" BR..N","OW","BROWNWAIT"
3070 [131]"  M..","OW","MOWWAIT"
3080 [131]" BL..","OW","BLOWWAIT"
3090 [131]"  H..L","OW","HOWLWAIT"
3100 [131]" ST..","OW","STOWWAIT"
3110 [131]"  M..TH","OU","MOUTHWAIT"
3120 [131]" GR..L","OW","GROWLWAIT"
3130 [131]" SH..ER","OW","SHOWERWAIT"
3140 [131]" KN..","OW","KNOWWAIT"
3150 [131]"  S..ND","OU","SOUNDWAIT"
3160 [131]" AR..ND","OU","AROUNDWAIT"
3170 [131]"  B..","OW","BOWWAIT"
3180 [131]"  D..N","OW","DOWNWAIT"
3190 [131]"  P..ND","OU","POUNDWAIT"
3200 [131]" SH..T","OU","SHOUTWAIT"
3210 [131]"  T..ER","OW","TOWERWAIT"
3220 [131]" SH..","OW","SHOWWAIT"
3230 [131]" GR..ING","OW","GROWINGWAIT"
3240 [131]" CR..D","OW","CROWDWAIT"
3250 [131]"  W..","OW","WOWWAIT"
3260 [131]"  H..","OW","HOWWAIT"
3270 [131]"   ..CH","OU","OUCHWAIT"
3280 [131]"ARR..","OW","ARROWWAIT"
3290 [131]"  C..ARD","OW","COWARDWAIT"
3300 [131]"BEL..","OW","BELOW"
3310 [131]"  P..DER","OW","POWDERWAIT"
3320 [131]" GR..","OW","GROWWAIT"
3330 [131]" BR..","OW","BROWWAIT"
3340 [131]" SL..LY","OW","SLOWLY"
3350 [131]"  B..ND","OU","BOUNDWAIT"
3360 [131]" FL..ER","OW","FLOWERWAIT"
3370 [131]" GR..L","OW","GROWLWAIT"
3380 [131]"BEL..","OW","BELOWWAIT"
3390 [131]"THR..","OW","THROWWAIT"
3400 [131]" SN..","OW","SNOW"
3410 [131]" CL..N","OW","CLOWNWAIT"
3420 [131]"  P..ER","OW","POWERWAIT"
3430 [131]" DR..N","OW","DROWNWAIT"
4900 [143]
4910 [143]
4920 [143] LINES 5000-10110 GIVES THE
4930 [143] STUDENT HIS SCORE AND
4940 [143] CALCULATES HIS PER CENT.
4950 [143] HE IS THEN GIVEN THE OPTION
4960 [143] OF STARTING AGAIN OR OF
4970 [143] LEAVING THE PROGRAM
4980 [143]
4990 [143]
5000 [153]"LOAD"
5010 [153]"YOU GOT"N"CORRECT OUT OF"CO
5020 [153]"THAT IS";[181](N[173]CO[172]100[170].5)"%"
10000 [153]"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
10005 [133] A$
10010 [139] [200](A$,1)[178]"Y" [167] [138] 790
10015 [153]"LOAD"
10016 [143] [204]
10017 [143]
10018 [143]
10019 [143] THE BALANCE OF THE PROGRAM
10020 [143] PRINTS A HAPPY FACE WHICH
10021 [143] REMAINS ON THE SCREEN UNTIL
10022 [143] ANY KEY IS DEPRESSED.
10023 [143]
10024 [143]
10025 [153]"":[151]53280,5:[151]53281,0
10030 [153]"": [143] CURSOR TO WHITE
10050 [153][163]14)"    (null)(null)(null)"
10060 [153][163]14)"  (null)(null)   (null)(null)"
10070 [153][163]14)" (null)  * *  (null)"
10080 [153][163]14)"(null)    CHR$    (null)"
10090 [153][163]14)"(null)         (null)"
10100 [153][163]14)" (null) (null)(null)(null)(null)(null) (null)"
10110 [153][163]14)"  (null)     (null)"
10120 [153][163]14)"   (null)(null)(null)(null)(null)"
10125 [143] [204]
10300 [153]"OKAY, THANK YOU FOR PLAYING"
10310 [153]"...AND HAVE A HAPPY OU/OWWAIT DAY"
10320 [161] J$:[139] J$[178]""[167] 10320
10340 [153]"LOAD"
10341 [128]
20058 [143] [204]